www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\zhaiquan.asp
<!-- #include file="conn.asp" -->
<%
'****************************************************
'Code for EptimeFFMS
'Vision : v4.0
'****************************************************
%>
<html>
<head>
<title><%=sitename%>-债权债务</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/admin.css" rel="stylesheet" type="text/css" />
<script src="js/common.js" type="text/javascript"></script>
<script src="images/main.js" type="text/javascript"></script>
<style>
body {
background-color:#FFFFFF;
}
</style>
<script>
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
</HEAD>
<BODY>
<!--当前导航-->
<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='首页 » 债权债务 » 列表';</script>
<table width="95%" border="0" cellpadding="0" cellspacing="0" bgcolor="#C4D8ED">
<tr>
<td><img src="images/r_1.gif" alt="" /></td>
<td width="100%" background="images/r_0.gif">
<table cellpadding="0" cellspacing="0" width="100%">
<tr>
<td> 债权债务</td>
<td align="right"> </td>
</tr>
</table>
</td>
<td><img src="images/r_2.gif" alt="" /></td>
</tr>
<tr>
<td></td>
<td>
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
<tr align="center">
<td class="category">对方机构/人员 </td>
<td class="category">我的债权</td>
<td class="category">我的债务</td>
<td class="category">明细</td>
</tr>
<%
sql="select * from Eptime_wanglai order by id"
set rs_wanglai=conn.execute(sql)
do while rs_wanglai.eof=false
%>
<%
sqla="select * from Eptime_money where 1=1"
sqla=sqla&" and wanglai="&rs_wanglai("id")
set count_buy = server.createobject("ADODB.RecordSet")
count_buy.open sqla,conn,1,3
nowprice1=0
nowprice2=0
do while count_buy.eof=false
if count_buy("type")=0 then
nowprice1=nowprice1+count_buy("price")
ElseIf count_buy("type")=3 Then
nowprice1=nowprice1+count_buy("price")
ElseIf count_buy("type")=5 Then
nowprice1=nowprice1+count_buy("price")
ElseIf count_buy("type")=2 Then
nowprice1=nowprice1+count_buy("price")
nowprice2=nowprice2+count_buy("price")
ElseIf count_buy("type")=1 Then
nowprice2=nowprice2+count_buy("price")
ElseIf count_buy("type")=4 Then
nowprice2=nowprice2+count_buy("price")
ElseIf count_buy("type")=6 Then
nowprice2=nowprice2+count_buy("price")
end if
count_buy.movenext
loop
%>
<tr>
<td align="center"><%=rs_wanglai("name")%></td>
<td align="center"><%If nowprice2-nowprice1>"0" then%><%=formatnumber(nowprice2-nowprice1,2)%><%else%>0.00<%End if%></td>
<td align="center"><%If nowprice1-nowprice2>"0" then%><%=formatnumber(nowprice1-nowprice2,2)%><%else%>0.00<%End if%></td>
<td align="center"><a href="zhaiquan_list.asp?id=<%=rs_wanglai("id")%>">查看</a></td>
</tr>
<%
rs_wanglai.movenext
loop
%>
</table>
</td>
<td></td>
</tr>
<tr>
<td><img src="images/r_4.gif" alt="" /></td>
<td></td>
<td><img src="images/r_3.gif" alt="" /></td>
</tr>
</table>
</body>
</html>